* test/src/comp-tests.el (comp-tests-type-spec-tests): Add two more test.

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 22065f8f6e4f17cfb92ed2d1c51a87e8acbc88ac..e1c13598ad6865216c65f9c590b0a66bb15fba9f 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -1018,7 +1018,21 @@ Return a list of results."
           x))
        (or null (integer 4 9)))
 
-      ;; 33 No float range support.
+      ;; 33
+      ((defun comp-tests-ret-type-spec-f (x)
+         (when (or (> x 3)
+                   (< x 10))
+          x))
+       (or null integer))
+
+      ;; 34
+      ((defun comp-tests-ret-type-spec-f (x)
+         (when (or (< x 3)
+                   (> x 10))
+          x))
+       (or null (integer * 2) (integer 11 *)))
+
+      ;; 35 No float range support.
       ((defun comp-tests-ret-type-spec-f (x)
               (when (> x 1.0)
                 x))